﻿Public Class Form14

    Private Sub Form14_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Test4DataSet.EnforceConstraints = False
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
        Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
        Me.Tbl_testIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_test, Me.Tbl_testBindingSource, Me.Tbl_testTableAdapter, Me.Test4DataSet)
        Dim ht As Hashtable = New Hashtable
        ht.Add("ten", "ten")
        Me.Tbl_testIUltraGrid.setThemIUltraDropDown(Me.Tbl_thuIUltraDropDown, Me.Test4DataSet.tbl_thu, ht)
        Me.Tbl_testIUltraGrid.setGiaoDienTuDong()
        Me.Tbl_thuIUltraDropDown.setGiaoDien()
    End Sub
End Class